home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgs.dir / Internal_8_riverThing.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  749 b   |  44 lines
  1. property meSprite, startPos, onStage, moveAnt, jumpable
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   gmObject.riverSprite = meSprite
  7.   jumpable = value(meSprite.member.name)
  8.   setSpeed(me)
  9.   setOff(me)
  10. end
  11.  
  12. on setSpeed me
  13.   moveAnt = point(-5, 12) * gmObject.speed
  14. end
  15.  
  16. on setOn me
  17.   meSprite.loc = startPos
  18.   updateStage()
  19.   if gmObject.intersectTestX(meSprite.rect, meSprite) = 1 then
  20.     setOff(me)
  21.     gmObject.dontTrig = 0
  22.     exit
  23.   end if
  24.   onStage = 1
  25. end
  26.  
  27. on locZdown me
  28.   nothing()
  29. end
  30.  
  31. on setOff me
  32.   onStage = 0
  33.   startPos = point(700, -580)
  34.   meSprite.loc = startPos
  35. end
  36.  
  37. on exitFrame me
  38.   if onStage = 1 then
  39.     if meSprite.locV < 600 then
  40.       meSprite.loc = meSprite.loc + moveAnt
  41.     end if
  42.   end if
  43. end
  44.